home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / MAL38.ZIP;1 / FOXPRO.ZIP / MALUTC.FXP (.txt) < prev    next >
Encoding:
MS Visual FoxPro App  |  1994-04-29  |  5.0 KB  |  111 lines
  1. MALUTC
  2. Purging Mailing List
  3.  .AND. 
  4. mUSER_ID$UPPER(USER_ID)
  5.  .AND. 
  6. mSEX$UPPER(SEX)
  7.  .AND. 
  8. mSTATUS$UPPER(STATUS)
  9.  .AND. 
  10. mHOUSE$UPPER(HOUSE)
  11.  .AND. 
  12. mFIRST$UPPER(FIRST)
  13.  .AND. 
  14. mLAST$UPPER(LAST)
  15.  .AND. 
  16. mADDR_1$UPPER(ADDR_1)
  17.  .AND. 
  18. mADDR_2$UPPER(ADDR_2)
  19.  .AND. 
  20. mCITY$UPPER(CITY)
  21.  .AND. 
  22. mSTATE$UPPER(STATE)
  23.  .AND. 
  24. mZIP$UPPER(ZIP)
  25.  .AND. 
  26. mADDR_1$UPPER(SADDR_1)
  27.  .AND. 
  28. mADDR_2$UPPER(SADDR_2)
  29.  .AND. 
  30. mCITY$UPPER(SCITY)
  31.  .AND. 
  32. mSTATE$UPPER(SSTATE)
  33.  .AND. 
  34. mZIP$UPPER(SZIP)
  35.  .AND. 
  36. mBIRTH<=BIRTH
  37.  .AND. 
  38. mBIRTH2>=BIRTH
  39.  .AND. 
  40. mWEDDING<=WEDDING
  41.  .AND. 
  42. mWEDDING2>=WEDDING
  43.  .AND. 
  44. mACT_DATE<=ACT_DATE
  45.  .AND. 
  46. mACT_DATE2>=ACT_DATE
  47.  .AND. 
  48. BOL_1
  49.  .AND. 
  50. BOL_2
  51.  .AND. 
  52. BOL_3
  53.  .AND. (
  54. mMESS&cCOUNT = ALLTRIM(  LEFT(mMESS,nCHR-1))
  55. IF LEN(mMESS&cCOUNT) > 0
  56. .OR.8
  57. mMESS
  58. $UPPER(MESS)
  59. .OR.8
  60. mMESS$UPPER(MESS))
  61. SET FILTER TO &cD
  62. Press [Esc] to abort
  63. bESC =.T.
  64. Number of Records = F
  65. WINDOW
  66. NFORM_SCR
  67. BIRTH2
  68. EWEDDING2
  69. ACT_DATE2
  70. CADDR_TYPENINDEX
  71. NORDER
  72. OPTION
  73. USER_ID
  74. MUSER_ID
  75. PEMSEX
  76. STATUS
  77. MSTATUS
  78. HOUSE
  79. MHOUSE
  80. FIRST
  81. MFIRST
  82. MLAST
  83. ADDR_1
  84. YPEMADDR_1
  85. ADDR_2
  86. MADDR_2
  87. PECITY
  88. MCITY
  89. STATE
  90. MSTATE
  91. BIRTH
  92. MBIRTH
  93. MBIRTH2
  94. 2WEDDING
  95. MWEDDING
  96. MWEDDING2
  97. ACT_DATE
  98. MACT_DATE
  99. MACT_DATE2BOL_1
  100. BOL_2
  101. BOL_3
  102. ATE2MMESS
  103. NCOUNT
  104. CCOUNT
  105. PLSWAIT
  106. DELETE
  107. THERM
  108. D:\DMAIL4\
  109. MALUTC.FXP
  110. D:\DMAIL4\MALUTC.PRG
  111.